home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO022.dsk / STARTUP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  6KB  |  63 lines
  1. 5  HOME 
  2. 10  FOR I = 770 TO 790: READ J: POKE I,J: NEXT : DATA    173,48,19  2,136,208,5,206,1,3,240  ,9,202,208, 245,174,0,3,76,2 ,3,96: POKE 768,20: POKE 769,8: CALL 770
  3. 12  PRINT  CHR$(4);"BLOAD J.P.,A$4000": POKE  -16299,0: POKE  -16297,0: POKE  -16304,0: POKE  -16302,0
  4. 13  GET A$
  5. 14  PRINT  CHR$(4);"BLOAD SELECT,A$2000": POKE  -16300,0: GET A$: IF A$ = "D"  OR A$ = "d"  THEN 200
  6. 15  IF A$ = "I"  OR A$ = "i"  THEN 300
  7. 20  POKE 230,32: HCOLOR= 3: HPLOT 0,0: CALL  -3082
  8. 22  FOR N = 1 TO 4: PRINT  CHR$(4);"BSAVE /RAM/A"N",A$2000,L$2000": NEXT 
  9. 90  PRINT  CHR$(4);"BLOADTYPE.I,A$8000"
  10. 92  POKE  -16302,0
  11. 100  PRINT  CHR$(4);"BLOADTIBLE,A$4000": POKE 230,64: POKE  -16297,0: POKE  -16304,0: POKE  -16299,0: SCALE= 1: ROT= 0: POKE 232,0: POKE 233,96
  12. 110  PRINT  CHR$(4);"BLOADMEATY,A$6000": PRINT  CHR$(4);"RUNPEN.II"
  13. 200  PRINT  CHR$(4);"BLOAD PENS,A$2000"
  14. 205  GOSUB 299
  15. 210  PRINT  CHR$(4);"BLOADCIRBOX ,A$2000"
  16. 215  GOSUB 299
  17. 220  PRINT  CHR$(4);"BLOADLETTERS,A$2000"
  18. 225  GOSUB 299
  19. 230  PRINT  CHR$(4);"BLOADSPECIAL,A$2000"
  20. 235  GOSUB 299
  21. 240  GOTO 14
  22. 299  FOR N = 1 TO 8000: NEXT : RETURN 
  23. 300  TEXT :B$ = "***************************************": HOME : PRINT B$: PRINT "           USING THE J.P        ": PRINT : VTAB 23: PRINT B$
  24. 301 H = H +1: IF H = 33  THEN 999
  25. 302  VTAB 4: READ D$: PRINT D$
  26. 310  GOSUB 1000: GOSUB 1010: GOTO 301
  27. 400  DATA  " IMPORTANT! -> TO USE THE J.P. YOU          MUST HAVE A JOYSTICK OR KOALA PAD,      A APPLE IIe OR IIc WITH 128K!           IT WON'T WORK WITHOUT THEM."
  28. 405  DATA  "    COMMANDS: All commands for the J.P.  are on the command page.  in the        center of the command page above where  it says 'PEN' is the currentcommand."
  29. 406  DATA  " To change it position the cursor by     a command in the to row and press the   second button,  the new command will    appear."
  30. 407  DATA  "                                         The functions of these commands from    left to right are as follows: "
  31. 408  DATA  "DOTTED LINE:  produces a dotted line     in the color indicated by color box     (to change this color move down to      bottom row of crayons, possition"
  32. 409  DATA  " cursor above desired color and press    second button.)  To draw line press     first button to get to drawing screen   move curser into position and hold "
  33. 410  DATA  " down first button to draw."
  34. 420  DATA  "THICKLINE:  Works just like dotted line  but produces thick line."
  35. 421  DATA  "STRIAGHT LINE: Works like other lines    but will connect the first place you    press the button with the second.       and continue connecting the line to     the last point you ended."
  36. 422  DATA  "THIN LINE: Works like dotted line and    thickline only produces thin line."
  37. 430  DATA  "BOX FILL: Will fill boxed area with      color mix, shown in the box just above  the word 'FILL'.  (to change 'FILL'     place curser along side panels of "
  38. 432  DATA  " colors and press second button.)        to use on drawing page, place curser    in a corner of the area to fill. press  second button, move vertical lines "
  39. 433  DATA  " until area to fill is inside of them,   press button again to fill area."
  40. 435  DATA  "CIRCLES, OVALS: Uses the same'FILL'      as the box fill.  To use place curser   on the center of the circle to fill     hit second button once and move "
  41. 436  DATA  " joystick left and right to adjust size  press button again to fill.  To change  shape of circle place curser in far     left of on command page and press       button"
  42. 438  DATA  " BRUSH: Works like line commands but      brushes texture on the screen."
  43. 440  DATA  " LETTERS: Will let you type on the        screen.  to use position curser on      place where text will start, hit the    button once and begin typing."
  44. 441  DATA  "  press the ESC key to end typing.        HINT: Type only on black or white and   with only black or white.  LETTERS      uses the color block for color choice"
  45. 450  DATA  " SPECIAL BOX: is located at the bottom    of the command page. To use position    cursor above it and press the button.   it will affect the following...."
  46. 452 D AT <CTRL-A>A"BOX FILL: will now produce the inverse   of the area contained in boxed area."
  47. 460  DATA  "CIRCLES: will now produce outline        circles instead of filling them in.     color is taken from color box. "
  48. 470  DATA  "BRUSH: Works differently?"
  49. 480  DATA  "LETTERS: Won't redraw in color from      box.  will allow half white half black  letters."
  50. 490  DATA  "TEMPORARY STORAGE: is located under the  striped arrows on bottom of the         command page. to use them place curser  on top of an arrow and press button."
  51. 500  DATA  " a smile will appear, and the picture    on drawing page has been placed their.  to return picture place curser above    it again and press button."
  52. 510  DATA  " If you place a picture in a temporary   storage slot that is filled a swap will occur, saving new picture and return-   ing the old one to the drawing page."
  53. 520  DATA  " WARNING: temporary storage pictures are lost when computer is turned off unless they are saved to a disc!"
  54. 530  DATA  "SAVING: to save a picture to disk place  cursor by save and press button. Type   in name to save and hit return. To      catalog a disk hit <return>, cancel hit  the 0"
  55. 540  DATA  "Before you can save programs you need a data disk.  Follow instructions in you  PRO-DOS manual and format a disk in     PRO-DOS naming the volume 'PEN'"
  56. 550  DATA  " MAKE SURE YOU NAME THE VOLUME PEN        OR IT WILL NOT WORK PROPERLY!"
  57. 560  DATA  " TWO DRIVE USERS-> place data disk in     drive 2.  ONE DRIVE USERS-> after       you have loaded J.P. and the command    page appears place data disk in         drive 1"
  58. 570  DATA  " LOADING-> Works like save but loads      programs to drawing page."
  59. 580  DATA  " IMAGE WRITER USERS- use image writers    tool kit disk to print out your         graphic pictures.  Also alter the ones  they have on the disk by copying them   to your data disk."
  60. 999  RESTORE : POKE  -16297,0: POKE  -16304,0: POKE  -16300,0: GOTO 14
  61. 1000  VTAB 22: HTAB 14: INVERSE : PRINT "<PRESS A KEY>": NORMAL : GET D$
  62. 1001  RETURN 
  63. 1010  VTAB 3: FOR N = 1 TO 5: PRINT : CALL  -868: NEXT : RETURN